COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "VMAP"
C00006 ENDMK
C⊗;
BEGIN "VMAP"

INTEGER CHN,EOF,I,JJ;
DEFINE N=63;
DEFINE MASK='377, OBPS=8,IBPS=6;

INTEGER ARRAY TABL[0:N];

REAL GAMMA;

DEFINE MAPADR='771000;

PROCEDURE MAPSET(INTEGER ARRAY TABL);
   BEGIN
   INTEGER WD;
   WD←1 LSH 35 + 1 LSH 17 + MAPADR LSH -1;
   USETO(CHN,LOCATION(WD));
   USETI(CHN,LOCATION(WD));
   ARRYOUT(CHN,TABL[0],N+1);
   END;

JJ←0;
OPEN(CHN←GETCHAN,"ELF",'17,0,0,0,0,EOF);
WHILE TRUE DO
   BEGIN
   INTEGER L;
   JJ←JJ+1;
   FOR L←1 STEP 1 UNTIL 10 DO CALL(0,"SLEEP");
   L←JJ MOD (N+1);
   FOR I←0 STEP 1 UNTIL N DO 
    TABL[I]←IF I=L THEN N LSH (OBPS-IBPS) ELSE 0;
   MAPSET(TABL);
   END;



RELEASE(CHN);

END;